object CalcMgrForm: TCalcMgrForm Left = 275 Top = 150 BorderStyle = bsDialog Caption = 'CalcMgrForm' ClientHeight = 453 ClientWidth = 632 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object LoanLabel: TLabel Left = 116 Top = 8 Width = 102 Height = 13 Caption = 'Loan Calculations' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object InvestmentLabel: TLabel Left = 397 Top = 8 Width = 136 Height = 13 Caption = 'Investment Calculations' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object CancelBtn: TBitBtn Left = 40 Top = 407 Width = 75 Height = 25 Hint = 'Click to go back to the main screen' Caption = 'Go back' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = False OnClick = CancelBtnClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033338833333333333333333F333333333333 0000333911833333983333333388F333333F3333000033391118333911833333 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333 911118111118333338F3338F833338F3000033333911111111833333338F3338 3333F8330000333333911111183333333338F333333F83330000333333311111 8333333333338F3333383333000033333339111183333333333338F333833333 00003333339111118333333333333833338F3333000033333911181118333333 33338333338F333300003333911183911183333333383338F338F33300003333 9118333911183333338F33838F338F33000033333913333391113333338FF833 38F338F300003333333333333919333333388333338FFF830000333333333333 3333333333333333333888330000333333333333333333333333333333333333 0000} Margin = 0 NumGlyphs = 2 Spacing = -1 end object LoanPanel: TPanel Left = 40 Top = 27 Width = 255 Height = 35 TabOrder = 1 object LoanBox: TComboBox Left = 9 Top = 7 Width = 235 Height = 21 Style = csDropDownList Color = clWhite Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( ' Calculate a Loan Payment ' ' Price Range You Can Afford ' ' Remaining Balance on a Loan ') ParentCtl3D = False ParentFont = False TabOrder = 0 OnChange = LoanBoxChange OnDropDown = LoanBoxDropDown end end object InvestmentPanel: TPanel Left = 338 Top = 27 Width = 255 Height = 35 TabOrder = 2 object InvestmentBox: TComboBox Left = 9 Top = 7 Width = 235 Height = 21 Style = csDropDownList Color = clWhite Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( ' Future Value of a Lump Sum ' ' Future Value of Regular Deposits ' ' Lump Sum Required for FV ' ' Regular Deposits Required for FV ') ParentCtl3D = False ParentFont = False TabOrder = 0 OnChange = InvestmentBoxChange OnDropDown = InvestmentBoxDropDown end end object MainPanel: TPanel Left = 40 Top = 85 Width = 553 Height = 291 BevelOuter = bvLowered TabOrder = 3 object LabelInput1: TLabel Left = 40 Top = 164 Width = 245 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Principal Amount' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelInput2: TLabel Left = 40 Top = 194 Width = 245 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Annual Interest Rate' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelInput3: TLabel Left = 40 Top = 224 Width = 245 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Length in Months' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelInput4: TLabel Left = 40 Top = 255 Width = 245 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Length in Months' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 1 Top = 139 Width = 552 Height = 13 Shape = bsTopLine end object Label1: TLabel Left = 422 Top = 224 Width = 12 Height = 13 Caption = 'or' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object YearLabel: TLabel Left = 491 Top = 224 Width = 33 Height = 13 Caption = 'Years' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BlurbPanel: TPanel Left = 10 Top = 50 Width = 530 Height = 84 BevelOuter = bvNone BorderStyle = bsSingle Ctl3D = False ParentCtl3D = False TabOrder = 4 object Memo1: TMemo Left = 79 Top = 10 Width = 409 Height = 68 BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Lines.Strings = ( 'This indicates the actual sticker price or selling price you can' + ' afford ' 'based on the loan information below. When negotiating a loan, n' + 'ever ' 'tell the lender how much you can afford to spend each month. ' 'Instead, tell them how much you can afford to borrow.') ParentColor = True ParentCtl3D = False ParentFont = False TabOrder = 0 end end object InputEdit1: TEdit Left = 297 Top = 160 Width = 120 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 Text = 'InputEdit1' OnChange = InputEdit1Change OnExit = InputEdit1Exit OnKeyDown = InputEdit1KeyDown OnKeyPress = InputEdit1KeyPress end object InputEdit2: TEdit Left = 297 Top = 190 Width = 120 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Text = 'InputEdit2' OnChange = InputEdit1Change OnExit = InputEdit2Exit OnKeyDown = InputEdit2KeyDown OnKeyPress = InputEdit2KeyPress end object InputEdit3: TEdit Left = 297 Top = 220 Width = 120 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 Text = 'InputEdit3' OnChange = InputEdit3Change OnExit = InputEdit3Exit OnKeyDown = InputEdit3KeyDown OnKeyPress = InputEdit3KeyPress end object ResultPanel: TPanel Left = 32 Top = 12 Width = 473 Height = 125 BevelOuter = bvNone BorderStyle = bsSingle Ctl3D = False ParentCtl3D = False TabOrder = 3 object LabelResult1: TLabel Left = 24 Top = 12 Width = 230 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Monthly Payment' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bottom3Panel: TPanel Left = 13 Top = 31 Width = 413 Height = 82 BevelOuter = bvNone BorderStyle = bsSingle Ctl3D = False ParentCtl3D = False TabOrder = 1 object LabelResult2: TLabel Left = 16 Top = 6 Width = 225 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Last Pyment' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelResult3: TLabel Left = 16 Top = 31 Width = 225 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Interest Paid' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelResult4: TLabel Left = 16 Top = 56 Width = 225 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Total Money Paid' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ResultPanel2: TPanel Left = 253 Top = 2 Width = 120 Height = 21 Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = 'ResultPanel2' Color = clNavy Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 0 end object ResultPanel3: TPanel Left = 253 Top = 27 Width = 120 Height = 21 Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = 'ResultPanel3' Color = clNavy Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 1 end object ResultPanel4: TPanel Left = 253 Top = 52 Width = 120 Height = 21 Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = 'ResultPanel4' Color = clNavy Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 2 end end object ResultPanel1: TPanel Left = 266 Top = 8 Width = 120 Height = 21 Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = 'ResultPanel1' Color = clNavy Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 0 end end object InputEdit4: TEdit Left = 298 Top = 251 Width = 120 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 Text = 'InputEdit4' OnChange = InputEdit1Change OnExit = InputEdit4Exit OnKeyDown = InputEdit4KeyDown OnKeyPress = InputEdit4KeyPress end object YearBox: TComboBox Left = 438 Top = 220 Width = 49 Height = 21 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( '' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' '23' '24' '25' '26' '27' '28' '29' '30' '31' '32' '33' '34' '35' '36' '37' '38' '39' '40' '41' '42' '43' '44' '45' '46' '47' '48' '49' '50' '51' '52' '53' '54' '55' '56' '57' '58' '59' '60' '61' '62' '63' '64' '65' '66' '67' '68' '69' '70' '71' '72' '73' '74' '75' '76' '77' '78' '79' '80' '81' '82' '83' '84' '85' '86' '87' '88' '89' '90' '91' '92' '93' '94' '95' '96' '97' '98' '99' '100') ParentFont = False TabOrder = 6 OnChange = YearBoxChange end end object ButtonClear: TButton Left = 430 Top = 407 Width = 75 Height = 25 Hint = 'Clears the form entries' Caption = 'Clear Form' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 TabStop = False OnClick = ButtonClearClick end object ButtonCalculate: TButton Left = 517 Top = 407 Width = 75 Height = 25 Hint = 'Calculate the results' Caption = 'Calculate' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 TabStop = False OnClick = ButtonCalculateClick end object btnPrint: TBitBtn Left = 127 Top = 406 Width = 75 Height = 26 Hint = 'Print preview calculation results' Caption = 'Print' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = btnPrintClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F333333333333370FFFFFFF1F2F 1FF07FFFFFFFFFFFFFF70FFFFFFFFFFFFFF077777777777777770F4444444444 44F07F333333333333F70F888888888888F07F333333333337370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF7300000000000000337777777777777733330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Margin = 2 NumGlyphs = 2 Spacing = -1 end object btnBuilder: TBitBtn Left = 214 Top = 406 Width = 136 Height = 26 Hint = 'Change the report settings' Caption = 'Report Builder' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 Visible = False OnClick = btnBuilderClick Glyph.Data = { BA040000424DBA04000000000000360000002800000016000000110000000100 18000000000084040000CE0E0000C40E00000000000000000000008080008080 0080800080800080800080800080800080800080800080800080800080800080 8000808000808000808000808000808000808000808000808000808000000080 8000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000008080 0000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFF000000000000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF FFFFFFFFFFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFF 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000080800000008080000000FFFFFFFFFFFFFFFF FFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000080800000008080000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000080800000008080000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF0000 00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000808000000080 80000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFF FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000008080 0000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000 FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00000000FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000 0000000000000000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000 00FFFFFFFFFFFF0000000080800080800000008080000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF000000FFFFFF000000008080008080008080000000808000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000080800080800080800080800000008080008080 0080800080800080800080800080800080800080800080800080800080800080 800080800080800080800080800080800080800080800080800080800000} Margin = 2 Spacing = -1 end end